home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / yerk / mps231ss.hqx / Mops source / Asm Source / Operand < prev    next >
Text File  |  1992-09-12  |  875b  |  38 lines
  1. \ Class Operand            Reese Warner            4/85
  2. \  03/07/86  GDC  fixed PC modes (9 & 10)
  3.  
  4. :class OPERAND  super(  object  )
  5.  
  6.     var    VALUE
  7.     var    ABSVALUE
  8.     int    REG        \ register
  9.     int    MODE        \ operand mode
  10.     int    AUXTYPE        \ index type (A/D)
  11.     int    AUXREG        \ index register
  12.     int    AUXSIZE        \ index size (word or long)
  13.     int    PCMODE        \ for use with PC modes
  14.  
  15. :m A/D:        get: auxType  ;m
  16. :m SETA/D:    put: auxType  ;m
  17. :m AUXILSIZE:    get: auxSize  ;m
  18. :m SETAUXSIZE:    put: auxSize  ;m
  19. :m AUXREG:    get: auxReg   ;m
  20. :m SETAUXREG:    put: auxReg   ;m
  21. :m REG:        get: reg  ;m
  22. :m SETREG:    put: reg  ;m
  23. :m VALUE:    get: value  ;m
  24. :m SETVAL:    put: value  ;m
  25. :m ABS:        get: absValue  ;m
  26. :m SETABS:    put: absValue  ;m
  27. :m MODE:    get: mode  ;m
  28. :m SETMODE:    put: mode  ;m
  29. :m EA:        mode: self  7 min  0 max  3 <<  reg: self  or  ;m
  30. :m GETPCMODE:    get: PCmode  ;m
  31. :m SETPCMODE:    put: PCmode  ;m
  32.  
  33. ;class
  34.  
  35. operand  OP1
  36. operand  OP2
  37. operand  OP3
  38.